RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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LIT 16-Sep-1984 00:48: VAX=11 Bliss-32_v4.0-742 ° ' 

erent aRe bess ee GhASteaschbaGre Secauir.eui:1 ™ ca} 

MODULE Lit (  JDENT =. *v04-000' 
) 


vo 


COOCOCOOCCOOOOOSOOOoOoOoO 
OOO 


Wr 


BLISS32C, ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE 
NONEXTERNAL = LONG-RELATIVESJ 


rololo) 


ze 


oO: 
MO OODNOAOUES WN $9 ODNOAUES WN (OOONOAOULS AN" OVOOnNOu 


BEGIN 


RITIIITILILILIL LLL LL LIL LLL LLL LiL LLL LLL LLL LiL. 
'® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
'w ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
RDANCE WITH THE TERMS OF SUCH LICENSE AND ah AL, 


'® IN E T NO . OF TWARE 
'* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
x 
® 
t 
® 
® 
7 
& 
we 
ie TRANSFERRED. e 
® 
® 
? 
® 
® 
* 
® 
® 
® 
® 


oooo 


jelelelelelolelelo! 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
< areponat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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i¢¢ 

FACILITY: ° DSR (Digital Standard RUNOFF) / DSRPLUS 

ABSTRACT: 


Processes the .LITERAL and .END LITERAL commands, as well 
as the text within the literal. 


ENVIRONMENT: Transportable 
AUTHOR: R.W.Friday CREATION DATE: June, 1978 
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X=1 0-74 Page e 
SKSVMSMASTER: CRUNOFF .SRCIJLIT.BLI;1 (2 
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H 043 1 XSBTTL ‘Revision History' 

3 45 bie 2 

: re] oe : MODIFIED BY: 

: 48 0047 1 i 003 REROOOO3 Ron Randall 07-Mar-1983 

: 49 048 1! Global edit of all modules. Uedeter module names, idents, 
: 29 sr : copyright dates. Changed require files to BLISS library. 
: 26 0051 1 i-- 

3. 3 0052 #1 


ce 


Module Level Declarations 


8 ; ! XSBTTL ‘Module Level Declarations’ 
055 1! 

096 i TABLE OF CONTENTS: 
0058 1 ' INCLUDE FILES: 
0059 1: 
0060 1 LIBRARY 'NXPORT:XPORT'; 
9061 REQUIRE 'REQ:RNODEF'; 
b198 1 XIF DSRPLUS %THEN 
019% 1 LIBRARY "REQ:DPLLIB'; 

195 1 %ELSE 
0196 1 LIBRARY ‘REQ:DSRLIB'; 
0197 1 %FI 
0198 1 
0199 1! 
0200 1 | EXTERNAL REFERENCES: 
0201 1: 
0208 1 EXTERNAL 
0203 1 GCA : GCA_DEFINITION, 
0204 1 IRA : FIXED STRING 
0205 1 NUMPRM : NUMPRM_ DEFINE, 
0206 1 SCA : SCA DEFINITION, 
9207 SCALIT : VECTOR CSCA_CASE_SIZE]; 
0209 1 EXTERNAL.“LITERAL 
0210 1 RNFELD, 
0211 1 RNFINM, 
Oi¢ 1 RNFLDE: 
0213 1 
0214 1 EXTERNAL ROUTINE 
0215 1 ERMA, 
0216 1 ; 
0217 1 OFT, 
0218 1 STKFRM; 


|foseo-19ge 09:48:45 


VAX=11 
DISKSVM 


! XPORT Library 
! RUNOFF variant definitions 


! DSRPLUS BLISS Library 
! DSR BLISS Library 


! Error messages 


Bliss- 
SMAST 


E 


3 
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OFF .SRCILIT.BLI;1 
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LIT 16-Sep-1984 748:4 V a 
(4-000 Module Level Declarations 13-8 08=1 38s aE D . 


: 3 0 8 ! GLOBAL ROUTINE LIT (HANDLER_CODE) : NOVALUE = 

: 94 p 1 1 t+ 

; 95 1 ! FUNCTIONAL DESCRIPTION: 

; 96 8 .% 

; 97 Seo See the ABSTRACT, above. 

; 0225 1! 

4 100 8 $ } FORMAL PARAMETERS: 

: 2 8 8 : If HANDLER_CODE is zero, process text instead of commands. 

: 108 0 1! IMPLICIT INPUTS: 

3 6104 eae 

; 19? 8 3 : NUMPRM contains a number, as processed by GETNUM. 

: 107 0234 { IMPLICIT OUTPUTS: None 

: 109 0236 1 ' ROUTINE VALUE: 

s 110 0237 1 ! COMPLETION CODES: None 

s 711 0238 1! 

; 16 0239 1 ! SIDE EFFECTS: None 

BOY 0240 1 !-- 

s > 36 OS¢3 1 

ae ae po mn 

: 117 0244 2 SELECTONE .HANDLER_CODE OF 

ae ias* 

: 120 0247 é [0] : ; 

: \$) OSe6 3 BEGIN 'Count text inside a literal. 
; 158 0250 3 LOCAL 

we BY ae 

: 126 0533 3 IF .GCA_CLIT 

i 38 o5e8 3 an 

: 129 0256 3 IF .GCA_LIT_COUNT LEQ 0 

s 350 0257 3 THEN 

; 33) 0258 4 BEGIN 'Literal count is wrong (too big) 
; 136 0259 4 ERMB (RNFLDE, FALSE); 

;- 0260 4 GCA LITERAL = FALSE; ‘Turn off Literal mode 
3: 134 0261 4 STKFRM (1); 'Restore previous settings 
3 132 bse ? OFT (.GCA_LIT_FLAG, 0); ‘Restore flag status 

: 137 0264 4 INCR I FROM_O TO SCA_CASE SIZE - 100 

: 138 0665 ; SCA C.1] = .SCALTT C.T); 'Restore case rules. 
: 140 0267 4 END 

> «(141 0268 ELSE 

; 126 0269 GCA_LIT_COUNT = .GCA_LIT_COUNT = 1; 

3; «614 8 70 

; i<¢ 4 END; 

: 146 0578 CH_LITERAL) : 

: 147 BS oe G. : 

3; «148 0275 GCA_LITERAL = TRUE; ‘Turn on Literal mode. 


1 
bese 1984 00:48:4 VAX-11 Bliss-32 V4.0-742 Pa 
Module Level Declarations 10-Sep-19 4 90708383 DISKSVMSMASTER:CRUNOFF.SRCILIT.BLI;1 - 
GCA_CLIT = FALSE; !Assume not a counted Literal 
GCA-LIT_COUNT = 0; 
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‘Remember current fla cerogr tren status. 
GCA_LIT_FLAG = .GCA_FLAG_CMD; 

‘Turn o ags 
'Save current status 
Me, 0); 


SCA 
SCA_ 
SCA 
SCA 
'Save case rules. 
INCR I FROM 0 TO SCA_CASE_SIZE - 1 DO SCALIT C.J] = .SCA C.J); 
INCR I FROM 0 TO SCA_CASE_SIZE - 1 DO SCAC.1] = 0; 
‘Validate the count, if given. If the count 
iis erroneous, the intended counted literal is 
‘handled Like an uncounted Literal instead. 
IF NOT .NUM_RESULT 

RETURN; 
IF yNUM_LENGTH NEQ 0 

BEGIN ‘It's a counted Literal 

IF .NUM_VALUE LEQ 0 

THEN 


BEGIN 

ERMA (RNFINM, FALSE); 
RETURN; 

END 


E; 
= .NUM_VALUE; 


END; 


CH_END_LITERAL) : 
BEGIN 


IF NOT .GCA_LITERAL 
BEGIN ',END LITERAL out of context 
IF .GCA_CLIT 
THEN ; 
at ‘Left over from mis-counted Literal 
RETO 
END; 


N 
CLIT = FALSE; 
RN; 


$$} 
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Module Level Declarations 12-8 08-1 3B 9:68:63 DISKSVMSMASTER: CRUNOFF., SRCILIT.BLI;1 7 “a8 
: 206 0333 4 3 
3 07 8 4 4 ERMA (RNFELD, FALSE); : 
; 208 3..% RETURN; 5 
; 09 0 $ 4 END 5 
s 210 0 3 ELSE ; 
s ei 0338 4 BEGIN sEND LITERAL in proper context 3 
: \¢ 0339 4 GCA_LITERAL = FALSE; Turn off literal mode. $ 
: 1Z 8 re ? set t'tta flag rules, filling, ond justifying 3 
: 215 bae6 4 ‘Restore e previous status ; 
; 18 tne ¢ STKFRM ( : 
: 518 0343 é INCR I FROM_O TO SCA_CASE_SIZE - 1 DO ; 
: 219 0346 4 SCA C.1] = .SCALIT ee T); 'Restore case rules. 3 
: 220 0347 4 ; 
3: gel 0348 3 END; : 
; $s¢ 0349 2 END; g 
3. ge 0350 2 TES; 3 
; 224 0351 +1 END; 'End of LIT 3 
oll taee BT 3 
eIDENT \V04-000\ 3 
eEXTRN GCA, IRA, NUMPRM b 
-EXTRN SCA SCALITS eure : 
-EXTRN RNFINM, RNFLDE, ERMA : 
EXTRN ERMB, OFT, STKFRM ; 
-PSECT $CODE$,NOWRT,2 3 
OOFC 00000 eENTRY LIT, Save R2,R3,R4,R5,R6,R7 ; 0219 - 
57 00000000G EF 9E 00002 MOVAB SCALIT, R7 : 3 
56 00000000G EF 9€ 00009 MOVAB OFT, R : 3 
55 000000006 EF 9€E 00010 MOVAB STKFRM, RS ; ; 
54 00000000G EF 9€ 00017 MOVAB NUMPRM+4, R4 3 3 
53 00000000G EF 9€ Bodie MOVAB SCA, R : 3 
52 00000000G_ EF 43 000 MOVAB GCA+144, R2 3 r 
50 04 AC 00 0002C MOVL HANDLER. CODE, RO 3; 0244 $ 
39 ig 309 0 BNEQ 3 Oger : 
01 62 5 O08 BLBS GCA+144, 1$ ; 0253 3 
4 O00 RET BY 3 
AB A2 D5 00036 1$: TSTL SeAene ; 0256 $ 
6c 14 8 3 BGTR $ r é 
E D4 B CLRL -(SP ; 0259 3 
00000000G 8F DD 000 4 PUSHL #RNFLDE 3 3 
00000000G EF 0 FB 0004 CALLS #2 ghne 3 3 
CO A2 D4 000A CLRL GCA+80 > 0260 ; 
3 4 CE 0004D MNEGL #1, -(SP) ; 0261 3 
6 1 FB 0005 CALLS #1, STKFRM - 3 
7E D4 0005 LAL awh > 0262 : 
B8 A DD 0005 PUSHL GCA+72 $ 
66 02 FB 0005 CALLS #2, 0 3 
50 D4 tts CLRL 1 3 os66 
6340 67" 00 005D 2$: MOVL ead bee | SCACIJ 3 65 
F7 50 18 F3 00062 AOBLEQ #24, I, 2$ ; 
04 00066 ET ; 0256 
| 
| 
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H 1 
1e=8ep-1984 13:06:53 DI SKSVMEMASTERSER 
'End of module 
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PSECT SUMMARY 
Name Bytes Attributes 
SCODES 271 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


counenes Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
.$255$D0UA28: CSYSLIBIXPORT.L32;1 590 0 0 252 00:00.1 
“$255$DUA28 : CRUNOFF . SRCJDSRLIB.L32; 1 1248 24 1 86 00:00.3 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:LIT/OBJ=OBJ$:LIT MSRC$:LIT/UPDATE=(ENH$:LIT) 


Size: 271 code + 0 data bytes 
Run Time: 706.4 

Elapsed Time: 00:26.3 

Lines/CPU Min: e303 
Lexemes/CPU-Min: 15703 

soneey Used: 75 pages 

Compilation Complete 
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